home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Peeker Nr. 15 (1986)(Verlag, Dr. Alfred Huethig)(DE).zip / Peeker Nr. 15 (1986)(Verlag, Dr. Alfred Huethig)(DE).do / REELL.7.bas < prev    next >
BASIC Source File  |  1996-12-24  |  718b  |  22 lines
  1. 100  REM +-------------------+
  2. 110  REM !                   !
  3. 120  REM ! Quintupel -> Zahl !
  4. 130  REM !                   !
  5. 140  REM +-------------------+
  6. 150  REM Eingabe
  7. 160  HOME : FOR I = 1 TO 5: PRINT I;
  8. 170  INPUT ". ZAHL: ";Z$:Z(I) =  VAL(Z$)
  9. 180  IF Z$ = ""  OR Z(I) <0  OR Z(I) >255  THEN I = I -1: VTAB  PEEK(37): CALL  -868
  10. 190  NEXT 
  11. 200  REM Vorzeichen
  12. 210 V$ = "+": IF Z(2) >127  THEN V$ = "-"
  13. 220  IF Z(2) <128  THEN Z(2) = Z(2) +128
  14. 230  REM Umwandlung in reelle Zahl
  15. 240  FOR I = 1 TO 4
  16. 250 D = D +Z(I +1) *256 ^ -I
  17. 260  NEXT : PRINT :K = Z(1)
  18. 270  IF K = 1  THEN D = D *2 ^(K -128): GOTO 300
  19. 280 D = D *2 ^(K -129)
  20. 290 D = D +D
  21. 300  PRINT "DIE ZAHL HEISST "V$;: IF D <1  THEN  PRINT "0";
  22. 310  PRINT D